00100	SRT 12800; SET SAMPLING RATE TO 12800                                   00100300 
00200	INS 0 1;    INSTRUMENT 1                                                00100400 
00300	OSC P4 P5 B2 F1;                                                        00100500 
00400	OSC B2 P3 B2 F2;                                                        00100600 
00500	OUT B2 B1/END;          ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!         00100700 
00600	GEN 0 1 1 .01 0 .99 25;                                                 00101400 
00700	.99 400  0 511*; GEN INPUT MUST ALWAYS START NEW LINE!                  00101500 
00800	GEN 0 2 2 .7 .5 0 .4 4*; F2 , 3 HARMONICS (1,2,4)                       00101600 
00900	GEN 0 3 3 1 -1*; F3 PUTS LINE FROM 1 TO -1 IN 511 STEPS                 00101700 
01000	                                                                        00101800 
01100	SCORE ; THIS WORD MUST!! APPEAR AFTER INSTS AND GENS ARE SET UP.        00101900 
01200	      BLANK CARDS MAY COME INSTEAD OF INST NAMES OR                     00102000 
01300	      PARAM #S AFTER THIS POINT.                                        00102100 
01400	BUZZ ;          INSTRUMENT 1=BUZZ, BEGIN TIME=0",                       00102200 
01500	      DURATION=# OF NOTES IN 'NOTES' (P3).                              00102300 
01600	P2 RHY;         RHY=NEXT ENTRIES WILL BE IN TERMS OF MUSICAL RHYTHM.    00102400 
01700	8 X 6/FINE*;                                                            00102500 
01800	P3 A4;                                                                  00103000 
01900	P4 1000/END;                                                            00103100 
02000	DUM1 GEN 0 1 6;                                                         00103200 
02100	P2 P2/P3 2/P4 2/P5 NUM/1/.5/.2*; P5=1ST HARM.                           00103300 
02200	P6 NUM/0/.5/.3*/P7 NUM/0/.2/.4*/P8 RLIST/0 0/0 .6/.2 .3*;P8=4TH HARM    00103400 
02300	P9 NUM/0/0/.5*/P10 0/P11 0/P12 .7 0,0  .3 0,1/P13 8/END; 8 HARMS.       00103500 
02400	       ;8 HARMONICS                                                     00103550 
02500	RUN;                                                                    00103600